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ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
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| 
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| H 
TTTTTTTTT1 111111 TTTTTTTTTT YY YY PPPPPPPP AARAAA HH HH DDDDDDDD ‘ 
TTITTTTTTTT I11111 TTTTTTTTTT YY YY PPPPPPPP AAAAAA HH HH DDDDDDDD ° 
TT Il TT YY Y PP PP AA AA HH HH DD D ° 
TT I] TT YY YY PP PP AA AA HH HH ODD DD ° 
TT II TT yY vy PP PP AA AA HH HH ODD DD | ° 
TT I] TT yY yvY PP PP AA AA HH HH ODD DD ° 
TT I] TT vY PPPPPPPP AA AA WHHHHHHHHHH DD OD ‘ 
TT 1] TT vY PPPPPPPP A AA HHHHHHHHHH DD OD . 
TT Il TT YY PP AAAAAAAAA HH HH DD DD ‘ 
TT 11 TT YY PP AAAAAAAAAA~ HH HH ODD DD : 
TT Il TT YY PP AA AA HH HH DD 0D e+ae ° 
TT III1II TT YY PP AA AA HH HH DDDDDDDD onne é 
TT 111111 TT YY PP AA AA HH HH DDDDDDDD nune ; 
LL I1111I SSSSSSSS : 
LL III! SSSSSSSS ‘ 
LL I] SS : 
LL Il ss ‘ 
LL I] ss ‘ 
LL II SS : 
LL II SSSSSS ‘ 
LL II SSSSSS : 
LL I] SS : 
LL I] Ss ‘ 
LL II SS : 
LL II SS ‘ 
LLLLLLLLLL II11I SSSSSSSS : 
LLLLLLLLLL III] S$SSSSSSS : 
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EDTSTITYPAHD = check for type ahead 


MODUL STITYPAHD ( ' Check for type ahead 
{Dent = 'v04-000' File: TITYPAHD.BLI Edit: JBS1004 
= 
BEGIN 
PITITITILILILILI LILLIE iii Lit ii iii iii ii iiitiiiiiiiiitii 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL FQuIPHENT ¢ €ORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie pia | tie IS Lat cite UNDER A LICENSE AND MAY BE USED AND comree 


& 

® 

® 

mH 

o 

® 

® 

® 

. 0 ® 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
! e 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

® 

® 

® 

® 

® 

® 


t* AND SHOULD NOT BE CONSTRUED AS A 
!t CORPORATION. 


BJE 
OMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT: 


SSsessssoooooseoosess 


esses 
PREcooocs 


MERKLE 

oom = 

o 

Soeeere 
SOONOUE WIN —O 


4 
] 
{ 
' 
Check for type ahead. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
: AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 
MODIFIED BY: 

' 

' 

i 

? 

' 

! 


i 1-001 = Original. DJS 18-F£B-1981 This module was created by 
' nag nd pe routine EDT a JTSTTVAHES from module TINPUT. 
ze headers. 


; I- 0 - Regular Mar 
! 1-005 - Revise typeonese Ws JBS 02- “Sep-19 
e appearance of the List ha 2 is 17-Jun-1983 


Sat ee ak 
MEW CO OONOUSWN—O”O 
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-004 - Improve t 


a a a bs 4 2 4 ss 2 = a a a 8 = ss a ss ss 8 
. —- 


| 
| 
'e¢ 
! FACILITY: EDT -- The DEC Standard Editor 
| 
| 


| 
~ 
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EDTSTITYPAHD EDTSTITYPAHD = check for type ahead 18-Se -1984 01:57:01 VA 
Oat 000 Declarations ag 12-808-1 8c 04:37:93 I 


RSBTTL Declarations’ 
TABLE OF CONTENTS: 
60 


32 V4.0-74 Page 2 
R:CEDT.SRCITITYPAHD.BLI;1 (2) 


REQUIRE "EDTSRC: TRAROUNAM’; 
FORWARD ROUTINE 


EDTSSTI_TSTTYAHED; 
' 
INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ'; 

| 


Bee Ge Ge Oe Se Se Ge Ge Se Fe Se Se Ge Ge Se Se Ge Ge Se Se Se Ge Se Se Se Ge Se Ge Se eee 
PAPCAASAAS 
Oowr MOUNT — 
a a a ee  _ — Ys 3 


9 } MACROS: 

71 R906 ! NONE 

7 064 ! 

7 4 ' EQUATED SYMBOLS: 

74 5 ‘ 

75 $ ! NONE 

76 ! 

77 : ' OWN STORAGE: 

78 ' 

79 50 ! NONE 

0 51 ! 

1 26 ' EXTERNAL REFERENCES: 
8 065 ! 
8 0654 ! In the routine 


See, Soa aieieeeeneiaee - a 


EDTSTITYPAHD EDTSTITYPAHD = check for type ahead =-$ep-1984 01:57: VAX-11 Bliss-32 V 
Ou 2000 EDTSSTI_LTSTTYAHED = check’ for type ahead 1§-ep-1964 93:3 :8 DISKSVMSMASTER: tt i SRCSTITYPAHD. BLI; rie 
3 5 655 } SSBTTL "EDTSSTI_TSTTYAHED = check for type ahead’ 

: 4 : $ ! GLOBAL ROUTINE EDTSSTI_TSTTYAHED ! Check for type ahead 

3 f = 

: 4 1 t+ 

3 4 56 ! FUNCTIONAL DESCRIPTION: 

: 38 + 1 i This routine checks to see if a character was meee ahead. If we 

5s 66 13 gre in recovery os, S ovuers ay 9! ise. i t type-ahead counter 
3; 665 1 / s orgeter than 0, return true, and if not, 4 to read a type-ahead character 
3 38 1666 ; and if it is read, place it in the eenasbel uffer and return true. 
4 JOH6 

; 98 1 i FORMAL PARAMETERS: 

3 99 1: 

: 8 mY _ 

: 10 72 1) IMPLICIT INPUTS: 

s 7 73 1 

: 1046 7% 15 EDTS$G_RCOV_MOD 

3 He gor? : EDT$$G “RDAHED 

; 109 0877 IMPLICIT OUTPUTS: 

> 109 $679 13 EDT$$G_RDAHED 

3 419 Bee : EDTS$T_RDAHED 

: HF 068¢ ROUTINE VALUE: 

: 114 0684 1! 0 = no type ahead 

3 142 Bene ; 1 = there was type ahead 

: 117 p68? 1 ' SIDE EFFECTS: 

> «118 0688 1! 

; #119 0689 1 i NONE 

; 120 0690 1! 

2 oe oie 

F § 93 BEGIN 

> 125 95 EXTERNAL ROUTINE 

; 126 38 EDTSSTI_RDTYAHED; 

no 

; (1 § $699 EDTSSG. RCOV_MOD, ' Recovery mode flag 

3; 130 700 ED Tssc “RDAHED, i Type ahead counter 

; 13) ye EDTS$T_RDAHED; i Text from type-ahead 

: 5 8 IF .EDT$$G_RCOV_MOD THEN RETURN (0); 

: 5 705 IF (.€DT$$G_RDAHED GTR 0) THEN RETURN (1); 

; ' O70? EDTS$$G_RDAHED = EDTSSTI_RDTYAHED (EDTSS$T_RDAHED) ; 
; 139 0708 IF (.EDTS$G_RDAHED GTR 0) THEN RETURN (1) ELSE RETURN (0); 

: 141 O74 END; ! of routine EDT$$TI_TSTTYAHD 


_— — E 7 


11 
EDTSTITYPAHD EDTSTITYPAHD = check for type ahead 1b-Se -1 VAX-11 B teat v4. 
BL 000 EDTSSTI_TSTTYAHED <= check for ty type ahead 12-888: 198 9}: 31 93 DISK $vNGH TER: CEDT. ORCSTITYPAND. BLI; Pqee (3) 


4) 
; -TITLE EDTSTITYPAHD EDTSTITYPAHD - check for type ahea | 
‘ -IDENT \V04-000\ | 
.EXTRN EDTS$S$TI_RDTYAHED | 
.EXTRN EDT$$G_RCOV 
-EXTRN ED Tssc “RDAHED, EDT$$T_RDAHED 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0004 00000 .ENTRY EDTSSTI TSTTYAHED, Save R2 : 0657 
52 000000006 00 9 9000 MOVAB EDTS AHED, R2 ; 
1A 000000006 00 €8 000 BLBS EDTS$G~ RCOV MOD, 2 + 0703 
62 D 0010 TSTL EDTS$SG"R AMED + 0705 
12 14 0001 BGTR «i$ ; 
000000006 00 9F 00014 PUSHAB EDT$$T_RDAHED + 0707 
000000006 09 01 FB OOO1A CALLS #1, ED prssri RDTYAHED 3 
6 50 pdO 00021 MOVL RO, EDTS$G_RDAHED 3 
04 15 00024 BLEQ 2$ + 0709 
50 01 00 00026 1$ MOVL #1, RO ; 
04 00029 RET F 
50 D4 0002A 2$ CLRL = RO : 0711 
04 0002¢ RET : 


; Routine Size: 45 bytes, Routine Base: _EDTSCODE + 0000 


be orig 1 
14 0715 1 !<BLF/PAGE> 


) 
411 | 
TSTITYPAHD DISTITYPAH heck for type ahead 16-Sep 4 VAX-11 Bliss-32 V 5 
ba *hb0 EDTaStl Tet PyAHED - check for type ahead 12: -Sep- 071 88d 9}: 31: 93 DISKSVMSMASTER: cto 1 SRCSTITYPAHD. BLI; "yee (4) 
3 «(145 714 1 END ! of module EDTSTYTYPAHD 
; «(16 715 (1 
; «616 716 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 45 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
3 esosuese SyER0(§ concce o Pages Processing 
3 File Total Loaded Percent Mapped ime 
: _$255$DUA28: :CEDT ~SRCJEDT.L32;1 377 0 0 40 00:00.2 
> _$255$DUA28: -SRCJPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
PL S/CHECE CF FELD, IME TIAL .CPTINIZED/NOTRACEOACEAL [Set 1981 TITYPAND/ERJOOBISs TET YPAOD MSRC$: TITYPAHD.BLI/UPDATE=(ENHS: TITY 
pize: 45 code + 0 data bytes 
un Time: 60: 9.4 
Flapsed Time: Tiel 


Lines/CPU Min: 4560 

Levenes/CPU-Rin: 12184 

peneey Used: 56 pages 
‘lation Complete 
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